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Bcpl Runtime Package 



This package is a replacement for the standard Bcpl runtime (the one 
built into the Alto Operating System), in which nearly all of the 
operations have been microprogrammed. Typical Bcpl programs run 25 to 
30 percent faster than with the standard routines, depending primarily 
on their frequency of procedure calls and their richness in complex 
structure references. Use of this package also permits one to Junta to 
levBasic if desired, for a savings of approximately 500 words of main 
memory. 

The microprogrammed runtime is entirely compatible with the standard 
one. It does not require programs to be modified or recompiled, and it 
works correctly during calls to the Operating System as well as to your 
own procedures. The simplest use of this package requires only that 
you load the necessary microcode into the Ram and call one 
initialization routine. 

The package also provides a convenient framework in which to define and 
microprogram additional emulator opcodes. 



1. Standard Use 



The simplest case applies v/hen you do not need to include any special 
microcode of your own. The file BcplRuntime.Dm is a dump-format file 
containing BcplRuntime.Br and BcplRuntimeMc.Br. These modules should 
be loaded with your program, along with the LoadRam procedure, 
available separately as LoadRam. Br. 

Early during initialization, your program should execute the following: 

external [ LoadRam; InitBcpl Runtime ; Ramlmage ] 
if LoadRam(Ramlmage) eq then Ini tBcp!Runtime() 

(LoadRam returns zero if it successfully loaded the Ram and a nonzero 
result otherwise, e.g., because no Ram board is installed.) 

Once this has been done, the space occupied by LoadRam. Br and 

BcplRuntimeMc.Br may be reclaimed. BcplRuntime.Br must remain resident 

throughout execution of the program, but it occupies only about 150 
words whereas the others consume nearly 3000. 

InitBcplRuntime sets up a 'user finish procedure' (in the manner 
described in the O.S. manual, section 3.12), whose purpose is to 
restore the normal Bcpl runtime routines when the program 'finish'es 
for any reason. Operation of this mechanism is ordinarily invisible; 
however, there are two situations in which the programmer must be aware 
of its workings. 
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First, if you execute a Junta and later a CounterJunta, the 
CounterJunta will itself cause the standard Bcpl runtime to be 
restored. The later restoration performed by the BcplRuntime package 
will be redundant and will do no harm, but the standard (slower) Bcpl 
runtime will be in use once the CounterJunta has been executed. 
tL 
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Second, if you Junta av/ay the standard Bcpl runtime routines 
themselves, you must be careful to perform initialization in the 
correct order. In particular, InitBcplRuntime must be called before 
the Junta and before any other code that sets up user finish 
procedures. This ensures that at 'finish' time, the cleanup procedure 
in the BcplRuntime package will be the last user finish procedure 
executed, immediately before control returns to the operating system 
for the final time. If this convention is not followed, a subsequent 
call on the Bcpl runtime would end up diving into garbage (since 
InitBcplRuntime saves and restores only the runtime statics, not the 
code) . 



2. Adding Your Own Microcode 

In order to implement additional emulator instructions or install 
microcode for special devices, it is necessary to understand the 
workings of the package in some detail. If you don't want to do those 
things, you need read no further. 

The source files are contained in the dump-format file 
BcplRuntimeSource.Dm. It includes, among other things, the following 
microcode source files: 

BcplRuntimeMc.Mu The top-level microcode source file, which 

'includes' all the others. 

EmulatorDef s .Mu Standard label and R-register definitions useful in 

writing code to be run as part of the emulator 
task. 

RamTrap.Mu Declarations and code for dispatching all opcodes 

that trap into the Ram. 

GetFrame.Mu Microcode implementing the Bcpl runtime 'GetFrame' 

and 'Return' operations. 

BcplUtil.Mu Microcode implementing all remaining Bcpl runtime 

operations. 

In addition to these files, you need Al toConsts23.Mu (or whatever the 
current version is), Mu.Run, and PackMu.Run. The latest (October 11, 
1977) version of Mu is required. 

To add new opcodes, you will need to edit BcplRuntimeMc.Mu and 
RamTrap.Mu (which should be renamed to something else first). The 
changes to BcplRuntimeMc.Mu are trivial: simply append 'include' 
statements for each of your own source files. 

RamTrap.Mu contains the following predef im'tion: 

!37,40, TrapDispatch , , , GetFrame, Return, BcplUtility; 
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The labels in this predef i nition correspond to the opcodes #60000, 

#60400, #61000, #61400 #77400 (a total of 32). However, several 

of these cannot be used because their execution does not cause a trap 
into the Ram. These are #60000, #60400, #61000, #64400, #65000, 
tL 
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#67000, and #77400. The GetFrame, Return, and BcplUtility instructions 
use #61400, //62000, and #62400. All others are available for your own 
use simply by adding labels to the predef inition . 

When one of these labels is reached, the Alto is in a clean state (no 
TASK or memory reference pending), the accumulators AC0 through AC3 
contain the values supplied by the emulated program, and IR (the DISP 
bus source) contains the low-order 8 bits of the opcode, which may be 
used for further dispatch if desired. 

The routine should finish by executing the following sequence of 
operations: 

TASK; 

something ; 
SWMODE; 
: START; 

It is essential that the TASK be executed as late as possible before 
the branch to START. The worst-case path in the Rom microcode 
beginning at START consists of 19 microinstruction cycles without a 
TASK. It has been determined empirically that as few as 3 
microinstructions inserted between 'something' and 'SWMODE' in the 
above sequence causes Diablo Model 44 disks to get data-late errors. 
(Alas, it is not possible to say 'SWMODE, TASK' in one microinstruction 
because they are both Fl's. In hindsight, it would have been nice if 
SWMODE had been implemented in such a way as to cause a TASK also.) 

BcplUtil.Mu contains three convenient exit points to which opcode 
emulation routines may branch. The code for these exit points is: 

StartO: POL; 
Startl: L<-PC, SWMODE; 
Start2: POL, -.START; 

One may branch to StartO having just executed ' L<- new PC, TASK;', to 
Startl having just executed 'TASK; something; 1 , or to Start2 having 
just executed 'TASK; something; L<- new PC, SWMODE;'. 

Standard R-registers available to the routine are listed in 
EmulatorDefs.Mu. These are SAD, XREG, XH, MTEMP, DWAX, and MASK. All 
except MTEMP are used exclusively by the emulator task and may be 
clobbered arbitrarily (the standard Nova emulator in the Rom does not 
depend on them). MTEMP is usable by any task but is safe only until 
the next TASK. 

You may need to modify EmulatorDefs.Mu if your microcode defines labels 
in low, fixed locations (e.g., START or the task starting addresses). 
Note that EmulatorDefs.Mu defines all labels except TRAP1 in a way that 
does not consume space in the Ram. You may need to change one or more 
of these (e.g., START) to ordinary predef initions if you intend to 
define them in the Ram. 

The microcode is assembled and turned into a .Br file by means of the 
commands : 

Mu BcplRuntimeMc.Mu 

PackMu BcplRuntimeMc.Mb BcplRuntimeMc . Br 
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The Bcpl runtime microcode contained in the package occupies 337 

(decimal) microinstruction words. 

tL 
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Mu Summary 



T <- <BUS> 
<ALU Function>* 

L «• <ALU Function> 
M <- (Sympathetic to L) 
MAR *• <ALU Function> 

MD <- <BUS> 

CR] «■ L 
L LSH 1 
L RSH 1 
L LCY 8 

[S] «- M (L) 



<ALU Function> ::= 




T 


[DEST] 


<BUS> 


[DEST] 


<BUS> + 1 


[DEST, T] 


<BUS> - 1 


[DEST, T] 


<BUS> + T 


[DEST] 


<BUS> - T 


[DEST] 


<BUS> + T + 1 


[DEST, T] 


<BUS> - T - 1 


[DEST] 


<BUS> OR T 


[DEST, T] 


<BUS> AND T 


[DEST] 


<BUS>.T (AND T) 


[DEST, T] 


<BUS> AND NOT T 


[DEST] 


<BUS> XOR 


[DEST] 


<BUS> ::= 




[R] 




CS] 




[CONSTANT] 





-1 
M 




MD 




MOUSE 




DISP [low order 8 bits 


of IR, sign extended] 



Sequencing of Data Movements 

<BUS> <- 1 

<ALU> <- T [2] 
<BUS> [2] 

MD 4- <BUS>[2] 
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[R] <- L [2,3] (data goes to shifter on cycle 2) 
L LSH 1 [2,3] 
L RSH 1 [2,3] 
L LCY 8 [2,3] 

T .<- <BUS>[3] 
<ALU Function>*[3] 

L ■*• <ALU Function>[3] 
M <- (Sympathetic .to. L) 
MAR «- <ALU Function>[3] 

[S] <- M (L) [3] 

Compatible Simultaneous Data Movements 
<BUS><- 
T«- 
L*- 

MAR<- 

T «. ■ 

<BUS><- or [R]<- or[S]<- 

MAR<- 
MD<- 

MAR<- 
<BUS><- or [R].«- or-[S]<- 

T<- 

MD<- 
T<- 
L<- 

MAR<- 

<BUS><- 

T<- 

[R]«-L 
T,L,MAR«-<ALU Function (BUS <-" 0,T)> 

[R]«-L <SHIFr OPERATION> 
T,L«-<ALU Function (BUS <- 0,T)> 

[S]<-L 
T,L,MAR<-<ALU Function (BUS <- 0,T)> 



ALTOCONSTS23.MU 9-MAY-78 12:27:42 Page 1 

; ALTOCONSTS23.MU 

Symbol and constant definitons for the standard Alto microcode. 
These definitions are for: 

AltoCodc23, AltoCode24, AltoIICode2, and AltoIICode3 
By convention,. people writing microcode should 'include' this file 
in front of their microcode using the following MU construct: 
#AltoConsts23.mu; 
This entire file is full of magic. If you modify it in any way 
you run the risk of being incompatible with the Alto world, 
not to mention having your Alto stop working. 

Revision History: 

September 20, 1977 8:33 PM by Boggs 

Created from old AItoConsts23.mu 
September 23, 1977 12:17 PM by Taft 
October 11, 1977 2:07 PM by Boggs 

Added XMAR definition 
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;Symbol definitons 
Bus Sources 



BS 



BS 
BS 
BS 



BS 5 

SMOUSE 
$DISP 



<- RRegister . - 

zeros the bus during RRegister<-, BUT NOT SRegister<- 
is undefined and therefore makes the bus all ones 
and 4 are task specific. For the 'Ram related' tasks they are: 
BS 3: «- SRegister ^* 

BS 4: SRegister«- 
is main memory (see definiton for MD, below) 

$LOOOOOO,014G06,000100; BS = 6 
$1,000000,014007,000120; BS = 7 



^Standard Fls 

$XMAR 

$MAR 

$TASK 

SBLOCK 

SLLSH1 

$LRSH1 

$LLCY8 

;Standard F2s 

$BUS=0 

$SH<0 

$SH=0 

$BUS 

$ALUCY 

$MD 



$L072000,000000,1 44000; Fl 
$L020001,000000,144000; Fl = 1 
$L0 16002,000000,000000; Fl = 2 

$L016003,000000,000000; Fl 
$LOOOOOO,022004,000200; Fl 
$L0000OO,022O05,OOO2O0; Fl 
$LOOOOOO,022006,000200; Fl 



$L024001,000000,000000; F2 
$L024002,000000,000000; F2 = 2 
$L024003,000000,000000; F2 = 3 
$L024004,000000,OOOOOOr F2 = 4 

$L024005,000000,000000; F2 = 5 
$L026006,014005,124100; F2 = 6, BS = 5 



= 1 and F2 = 6 (Extended MAR) 



= 1 



{Emulator specific functions 

SBUSODD $L024010,000000,000000; F2 = 10 

$LMRSH1 $LOOOOOO,062005,000200; F2 = 11 Magic Right Shift 

$LMLSH1 $LO00O00,062O04,O002OO; F2 = 11 Magic Left Shift 

$DNS $L030012,000000,060000; F2 = 12 Do Nova Shift 

SACDEST $L030013,032013,060100; F2 = 13 Nova Destination AC 

SIR $L026014,000000,124000; F2 = 14 Instruction Register 

SIDISP $L024015,000000,000000; F2 = 15 IR Dispatch 

SACSOURCE $LOO000O,O32O16,000100; F2 = 16 Nova Source AG 

;Emulator specific functions decoded by, the RAM board 



SSWMODE $L016010,000000,000000 

$WRTRAM $L01601 1,000000,000000 

$RDRAM $L016012,000000,000000 

$RMR $L020013,000000,124000; Fl = 

;F1 = 14 and 15 are used by the magic shifts 



Fl = 10 Switch Mode 
Fl = 11 Write Ram 
Fl = 12 Read Ram 
13 Reset Mode Register 



;Emulator specific functions decoded by the ETHERNET board 

$RSNF $LOOOOOO,070016,000100;. : Y Fl = 16 Read Serial (Host) Number 

$STARTF $L016017,000000,000000; Fl = 17 Start I/O 



$M 

$L 

$T 



$R40; The M Register 

$L040001,036001, 144200; The L Register 
$L052001,054001,124040; ALUF = 1, The T Register 



;ALU Functions. * => loads T from -ALU output <■ 
SORT $LOOOOOO,050002,000002; ALUF = 2 * 

SANDT $LOO()000,050003,00()002; ALUF = 3 

$XORT $LOOOOOO,050004,000002; ALUF = 4 
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$+1 

$-1 

$+T 

$-T 

S-T-l 

S+INCT 

$+T+l 

S+SKIP 

SAND NOT 
;$ZEROALU 
;ALUF 17 is 

;Handy fakes 

$SINK 

$NOP 

; Definitions 

SHALT 

$BREAK 

SWENB 

SREADY? 

SNOVA 

SEND 



$L000000,050005,000002; ALUF = 5 * 
$1,000000,050006,000002; ALUF = 6 * 
$LOOOOOO,050007,000002; ALUF = 7 
$L000000,050010,000002; ALUF = 10 
$L000O00,05OOl 1,000002; ALUF = 11 

$L000000,050012,000002; ALUF = 12 * synonym for +T+1 
$L000000,050012,000002; ALUF = 12 * 

$L000000,050013,000002; ALUF = 13 
SLOOOOOO'050014,000002; ALUF = 14 * 
T $L000000,050015,000002; ALUF = 15 

$LOOOOOO,050016,000040; ALUF = 16 

unassigned 



$L044000,000000,124000; 
$L042000,000000,000000; 



DF3 = Bus source without dest . 
NDF3 = every computer needs one 



for the Nova debugger and DEBAL 
$L042001,000000,000000; 

$L042003,000000,000000 
$L042005,000000,000000 
$L042006,000000,000000 
$L044002,046003,124100 
$L034000,000000,000000; 
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;Constant definitions 



$0 

$ALLONES4 
$ALLONES5 
$M17 
$ALLONES7 

$M 177770 

$M7 
$X17 

$ONE 

$2: 

$-2 

$3 

$4 

$5 

$6 

$7 

$10 
-$-10 
- $17 

$20 

$37 • . 

$ALLONES 
-$40 

$77 

$100 

$177 

$200 

$377- 

$177400 

$-400 

$2000 

$PAGE1 

$DASTART 

$KBLKADR- 

$MOUSELOC 

$CURLOG- 
-$CLOCKLOC 

$CON100 

$CADM 

$SECTMSK 

$SECT2CM 
• $-4 

: $177766 
. ■ $177753 
l^TOTUWC 

$towtt 

.,$STUWC 
$STRCWFS 

$177000 

$77777 

$77740 

$LOW14 

$77400 

$-67D 

$7400 



$LOOOOOO,012000,000100; 



Constant is SUPER SPECIAL 



$M4:177777 
$M5:177777 
$M6:O00M7 
$M7:177777 
$M7:177770 
$M7:000007 
$M 7:0000 17 

$1; 

$2; 

$177776; 

$3; 

$4; 

$5; 

$6; 

$7; 

$10; 

$177770; 

$17; 

$20; 

$37; 

$177777; 

$40; 

$77; 

$100; 

$177 

$200 

$377 



Constant normally ANDed with KSTAT 
Constant normally ANDed with MD 
Constant normally ANDed with MOUSE 
Constant normally ANDed with DISP 
Mask for DISP 
Mask for DISP 
'Mask for DISP 

The constant 1 

- Disk header word count 



--Disk label word count 



The REAL -1 (not a mask) 



$177400; 
$2000; 



$177400; 



$420 

$521 
$424 

$430; 



$400; 



$426; 

$100; 

$7772; 



- DISK DATA WORD COUNT 



MAIN MEMORY DISPLAY HEADER ADDRESS 
MAIN MEMORY DISK BLOCK ADDRESS 
MAIN MEMORY MOUSE BLOCK ADDRESS 

MAIN MEMORY CURSOR BLOCK ADDRESS 



CYLINDER AND DISK MASK 

$170000; SECTOR MASK 

$40000; CAUSES ILLEGAL SECTORS TO CARRY OUT 

$177774; CURRENTLY UNUSED/. 

$177766; CURRENTLY UNUSED 

$177753; CURRENTLY UNUSED 

$44000; NO DATA TRANSFER, USE WRITE CLOCK 

$66000; , NO DATA TRANSFER, DISABLE WORD TASK 

$4000; TRANSFER DATA USING WRITING-CLOCK 



$10000; 



TRANSFER DATA USING NORMAL CLOCK, WAIT FOR SYNC 



$177000; 
$77777; 
$77740; . 

$177774; 
$77400; 
$177675; 
$7400; 
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$7417 


$7417; 




$170360 


$170360; 


$60110 


$60110 




$30000 


$30000 




$70531 


$70531 




$20411. 


$20411 




$65074 


$65074 


. 


$41023 


$41023 




$122645 


$122645; 


$177034 


$177034; 


$37400 


$37400; 


$BIAS 


$177700; CURSOR Y BIAS 


$WWLOC 


$452; WAKEUP WAITING IN PAGE 1 


$PCLOC 


$500; PC VECTOR IN PAGE 1 


$100000 


$100000; 


$177740 


$177740; 


$COMERRl 


$277; COMMAND ERROR .MASK 


$-7 


$177771; CURRENTLY UNUSED 


$177760 


$177760; 


$-3 


$177775; 


$4560 


$4560; 


$56440 


$56440; 


$34104 


$34104; 


$64024 


$64024; 


$176000 


$176000; 


$177040 


$177040; 


$177042 


• $177042; 


$203 


$203; 


$360 


$360; 


$177600 


$177600; 


$174000 


$174000; 


$160000 


$160000; 


$140000 


$140000; 


$777 


$777; 


$1777 


$1777; 


$3777 


$3777; 


$7777 


$7777; 


$17777 


$17777; 


$37777 


$37777; 


$1000 


$1000; 


$20000 


$20000; 


$40000 


$40000; 


$-15D 


$177761; 


$TRAPDISP 


$526; 


$TRAPPC 


$527; 


$TRAPCON 


$470; . - 


$JSRC 


$6000; JSR@ 


$MASKTAB 


$460; Mask Table Starting address for convert 


$SH3CONST 


$14023; DESTINATION = 3, SKIP IF NONZERO 


> 


BASE CARRY = 


$600 


$600; Ethernet addresses 


$601 


$601 


- 


$602 


$602 




$603 


$603 




$604 


$604 




$605 


$605 


< 


$606 


$606 




$607 


$607 




$610 


$610 
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$612 

SITQUAN 

$IT1BIT 

$402 

$M 177760 

$JSRCX 

$KBLKADR2 

$KBLKADR3 

$MFRRDL 

$MFR0BL 

$MIRRDL 

$MIR0BL 

$MRPAL 

$MWPAL 

$BDAD 

$REFMSK 
$-X37 

$M 177740 
$E1AL0C 

$7000 

$176 

$177576 

$30 

$15 

$1770 

$101771 

$175777 

$11 

$13 

$14 

$16 

$60 

$776 

$177577 

$100777 

$177677 

$177714 

$2527 

$101 

$630 

$631 

$642 

$lgml 

$lgm3 

$lgml0 

$!gml4 

$lgm20 

$Igm40 

$Igml00 

$lgm200 

$disp.300 

$-616 

$-650 



$612; 

$422; 

$423; 
$402; 
$M7:177760; 

$4000; 
$523; 
$524; 



where label block is stored on disk boot 
MASK FOR DISP. FOR I/O INSTRUCTIONS 
JSR 



$12; 



$177757 
$177744 
$177774 
$177775 
$177775 
$177773 



DISK HEADER READ DELAY IS 21<WORDS 
DISK HEADER PREAMBLE IS 34 J WORDS 
DISK INTERRECORD READ DELAY IS 4 WORDS 
DISK INTERRECORD PREAMBLE IS 3 WORDS 
DISK READ POSTAMBLE LENGTH IS 3 WORDS 
DISK WRITE POSTAMBLE LENGTH IS 5 WORDS 



ON BOOT, DISK ADDRESS GOES IN LOC 12 



$77740; 
$M7:37; 
$M7:177740; DITTO 



$177701; 



MRT Refresh mask 
NOPAR MASK 

LOCATION OF EI A INPUT HARDWARE 



$7000; 
$176; 

$30; 

$15; 
$1770; 



$11; 
$13; 
$14; 
$16; 
$60; 
$776; 



mapbase 

mapmask 
$177576; mapmask3 

reprobinc 

wrt-1 
* • ciad 
$101771; cilow 

$175777; for resetting fbn 

just to have small integers 



for 2CODE 

low R to high R bus source 



$177577: 
$100777 
$177677: 
$177714 



-129 



(-2fvar+14) 



$2527; 

$101; 

$630; 

$631; 

$642; 

$M7:1; 

$M7:3; 
$M7:10 
$M7:14 
$M7:20 
$M7:40 



$M7:100; 
$M7:200; 



$M7:300; 
$177162; 
$177130; 
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$22 


$22 






$24 


$24; 




$-20 


$177760; 




$335 


$335; 


endcode for getframe 


$1377 


$1377; 


smallnzero 


$401 


$401; 




$2001 


$2001; 




$21 


$21 




just to have them 


$23 


$23 






$25 


$25 






$26 


$26 






$27 


$27 






$31 


$31 






$1675 


$1675; 




$736 


$736; 




$-660 


$177120; 




$300 


$300; 




$disp.377 


$M7:377; 




$6001 


$6001; 


f.e. fig, quick fig, us< 


$disp.3 


$M 


7:3; 





; Constants for subroutine returns using IR. 
; See 9.2.1 of the hardware manual for details. 



$srl 


$60110 


$sr0 


$70531 


$sr2 


$61000 


$sr3 


$61400 


$sr4 


$62000 


$sr5 


$62400 


$sr6 


$67000 


$sr7 


$63400 


$srl0 


$64024 


$srll 


$64400 


$srl2 


$65074 


; Are you 


wondering w 


$srl4 


$66000 


$srl5 


$66400 


$srl6 


$63000 


$srl7 


$77400 


$sr20 


$65400 


$sr21 


$65401 


$sr22 


$65402 


$sr23 


$65403 


$sr24 


$65404 


$sr25 


$65405 


$sr26 


$65406 


$sr27 


$65407 


$sr30 


$65410 


$sr31 


$65411 


$sr32 


$65412 


$sr33 


$65413 


$sr34 


$65414 


$sr35 


$65415 


$sr36 


$65416 


$sr37 


$65417 



value of 16b mapped to 6 by disp prom 



srl3 is missing? So is everyone else. 



value of 6 mapped to 16b by disp prom 



$-13D $177763; 

$ERRADDR $177024; 



AltoII MEAR (Memory Error Address Reg) 



ALTOCONSTS23.MU 
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$ERRSTAT $177025; 
$ERRCTRL $177026; 
$REFZERO $7774; 



AltoII MESR (Memory Error Status Reg) 
AltoII MECR (Memory Error Control Reg) 



$2377 


$2377; 


Added for changed Ether 


$2777 


$2777; 




$3377 


$3377; 




$477 


$477; 


Added for BitBlt 


$576 


$576; 


Added for Ethernet boot 


$177175 




$177175; 



;Requests for the following new constants have been made: 
;NOTE THAT THESE ARE NOT YET DEFINED 



$lgm2 


$M7:2; 


$lgm4 


$M7:4; 


$32 


$32; 


$33 


$33; 


$34 


$34; 


$35 


$35; 


$36 


$36; 
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; RamTrap.mu 

; Last modified October 11, 1977 11:26 AM 

; Trap handler and dispatcher for instructions that trap into 

; the RAM. In the following predefinition, the tags correspond 

; to opcodes 60000, 60400, 61000, 61400, ... 77400. 

; Note that opcodes 60000, 60400, 61000, 64400, 65000, 67000, and 77400 

; cannot be used since control never gets to the RAM for these). 

; 61400 62000 62400 

!37,40, TrapDispatch,,, GetFrame, Return, BcplUtility; 

; Control comes here with the instruction LCY 8 in XREG 
TRAPl:T«-37; 

L«-XREG AND T; 
TrapDispatch: 

SINK>LREG, BUS, TASK; 

.•TrapDispatch; 
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; EmulatorDefs.mu -- Alto definitions for emulator-level microprogramming 
; Last modified October 12, 1977 2:57 PM 



Standard microinstruction addresses in the Rom 
(see Alto Hardware Manual, section 9.1). 

These declarations do not cause space to be allocated in the Ram 
I (except TRAP1, which we presumably want to define in the Ram) 



$START 


$L4020, 0, 0; 


SRAMCYCX 


$L4022, 0, 0; 


$BLT 


$L4105, 0, 0; 


$BLKS 


$L4106, 0, 0; 


$MUL 


$L4120, 0, 0; . 


$DIV 


$L4121, 0, 0; 


$B1TBLT 


$L4124, 0, 0; 


$L0 


$L4160, 0, 0; 


!37,1, TRAP1; 





; Standard R-registers usable by the emulator task 



$AC3 

$AC2 

$AC1 

$AG0 

$NWW 

$SAD 

$PC 

$XREG 

$XH 

$MTEMP 
$DWAX 
$MASK 



$R0; 
$R1; 
$R2; 
$R3; 
$R4; 
$R5; 
$R6; 
$R7; 

$R10; 



Accumulators 



New wakeups waiting (communication between tasks) 

Temporary private to emulator 

Program Counter for emulated Nova 

Temporary private to emulator. 

Contains instruction LCY 8 upon dispatch to TRAP1. 

Temporary private to emulator 

$R25; Temporary usable by any task 

$R35; Temporary private to emulator 

$R36; Temporary private to emulator 



$LREG 



$R40; Another name for the M-register 
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; BcplRuntimeMcmu -- top-level microprogram for Bcpl runtime code 

; Last modified October 11, 1977 11:25 AM 

#AltoConsts23.mu; 

#EmulatorDefs.mu; 

#RamTrap.mu; 

#GetFrame.mu; 

#BcplUtil.mu; 
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; BcplUtil.Mu -- bcpl runtime utilities (except GetFrame and Return) 
; Last modified October 16, 1977 6:38 PM 

All Bcpl runtime utilities in this module are invoked by an opcode 

of the form XXnnn, where XX is the opcode for the main dispatch in RamTrap 

and nnn is the DISP field used for sub-dispatching here. 

!77,100, LqO.O, LqO.l, Lq0.2, Lq0.3, Lq0.4, Lq0.5, Lq0.6, Lq0.7, 
, Lql.l, Lql.2, Lql.3, Lql.4, Lql.5, Lql.6, Lql.7, 
SnqO, SqO.l, Sq0.2, Sq0.3, SqO.4, Sq0.5, Sq0.6, Sq0.7, 
Snql, Sql.l, Sql.2, Sql.3, Sql.4, Sql.5, Sql.6, Sql.7, 
LongJump, Branch, Lookup, Rsh, Lsh, lor, Xor, Eqv, 
Mult, DivRem, MulPlus, LyOl, LylO, SyOl, SylO; 

; RamTrap dispatches here for the Bcpl utility opcode 

BcplUtility: 

SINK<-DISP, BUS, TASK; Branch on sub-code 

:LqO.O; 

LongJump 

Jumps to AC3. + @AC3 
Calling sequence is: 
jsr @3S5 
target-, (i.e., a self-relative pointer) 

LongJump: 

MAR<-T<-AC3; 
LongJl:NOP; 

L<-MD+T, TASK; 

;-Some useful exit sequences- 

StartO: POL; Branch here having done L<- new PC, TASK; 

Startl: L«-PC, SWMODE; Here after TASK; something; 

Start2: PC«-L, :START; Here after TASK; something; L<- new PC, SWMODE; 
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Branch 

Calling sequence is: 

Ida switchon Yalue 
jsr @350 
value of last case 
number of cases 
lastTarget-. 

firstTarget-. 
return here if out of range, ACO unchanged 

!1,2, BranO, Branl; 
!1,2, Bran2, Bran3; 

Branch: MAR<-T*-AC3; Fetch value of last case 

L*-2+T; 

AC3<-L; AC3<- address of first branch table entry 

T>AC0; Value we are branching on 

L+-MD-T; L«- lastCase-Yalue, carry*- lastCase ge value 

IY1AR<-T<-AC3-1, ALUCY; Fetch number of cases 

T«-LREG, L<-LREG+T, :BranO; [BranO, Branl] T<- lastCase-value, 
; L<- AC3+(lastCase-value)-l 

; Value greater than last case, take out of range exit. 

BranO: L<-T«-MD, :Branla; Finish fetch of numCases, turn off ALUCY 

; Value le last case, test number of cases 

Branl: SAD*-L; Save address-1 of branch table entry 

L<-MD-T-1, T<-MD; L<- numCases-(lastCase-value)-l, T*- numCases 

Branla:L<-AC3+T, ALUCY, TASK; Carry if numCases gr (lastCase-value) 

AC3<-L, :Bran2; [Bran2, Bran3] Adr of inst after branch table 

; Value in range, execute branch. 

; SAD/ address-1 of branch table entry 

Bran3: MAR*-T<-SAD+1, :LongJl; Just like LongJump 

; Value less than first case, take out of range exit. 
Bran2: L<-AC3, SWMODE, :Start2; 
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Lookup 

Calling sequence is: 

Ida switchon value 
jsr @351 
number of cases 
case value 1 
targetl-. 

case value n 
- targetn-. 
return here if out of range 

!l,2, LookO, Lookl; 
!1,2, Look2, Look3; 

Lookup:MAR*-T«-AC3; Fetch number of cases 
NOP; 

L+-MD+T, T<-MD; L<- AC3+numCases, T«- numCases 

L«-LREG+T+1, TASK; L<- AC3+(2*numCases)+l 

AC1<-L; Save- for end test 

LookO: MAR*-T«-AC3+1; Increment pointer, fetch next case value 

L<-AC1-T; Test for end 

T.^ACO, L«-T, SH=0; T<- switchon value 

AC3<-L, :Look2; - [Look2, Look3] 

Look2: L<-MD-T; Compare switchon value with case 

I>AC3+1,' SH=0, TASK; Increment pointer again 

AC3<-L, :LookO; [LookO, Lookl] 

; Found matching case value. AC3/ address of dispatch for case. 
Lookl: MAR«-T«-AC3, :LongJl; Just like LongJump 

; Lookup failed. AC3/ adr of inst after lookup table 
Look3: L«-AC3, TASK, :StartO;. 
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Right shift 

Computes acO <- acO rshift acl 

Called by jsr @347 

Note that shift count may be either positive or negative 

!1,2, RshPos, RshNeg; 
!1,2, RshG16, RshL16; 
!1,2, RshG8, RshL8; 
!1,1, RshNl; 
!1,1, LtoACO; 

Rsh: L<-T<-AC1; Shift count negative? 

L<-17-T, SH<0; 16 or greater? 

LHO AND T, ALUCY, :Rshl»os; [RshPos, RshNeg] 8 or greater? . 
RshPos:L*-7 AND T, SH=0, :RshG16; [RshG16, RshL16] Compute count mod 8 
RshL16: T<rl77400, :RshG8; [RshG8, RshL8] 

; Shift count in range 8 to 15. Start by right-shifting 8 
RshG8: T<-AC0.T; 

SINK«-LREG, L*-T, BUS, TASK; Branch on shift count mod 8 

AC0<-L LCY 8, :LqO.O; 

; Shift count less than 8. Branch on shift count 
RshL8: SINK>AC1, BUS, TASK; 
:LqO.O; 

; This shift table is also used in the LqO.n series of instructions 
Lq0.7: L«-AC0; 

AC0<-L RSH 1; 
Lq0.6: L«-AC0; 

AC0<-L RSH 1; 
Lq0.5: L«-AC0; 

AC0<-L RSH 1; 
Lq0.4: L<-AC0; 

AC0«-L RSH 1; 
Lq0.3: L*-AC0; 

AC0<-L RSH 1; 
Lq0.2: L*-AC0; 

AC0*-L RSH 1; 
LqO.l: L<-AC0, TASK; 

AC0«-L RSH 1, :Bran2;Do PC*-AC3 and go to START 

; Shift count 0, do nothing 

LqO.O: L*-AC3, SWMODE, :Start2; Do PC<-L and go to START 

; Shift count 16 or greater, return zero 

RshG16: L<-0, TASK, :LtoAC0; [LtoACO, LtoACO] 

LtoACO: AC0<-L, :Bran2; Do PG<-AC3 and go to START 

; Shift count negative. Convert to Left Shift 

RshNeg: L<-0-T, TASK; [RshNl, RshNl] Negate shift count 

RshNl: AC1<-L, :Lsh; 
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Right shift constant amount 

Computes acO <- acO rshift n (n in range 1 to 7) 

Calling sequence is: 

Ida value 

jsr 314 - 2*n 
(dispatches into LqO.n table, above) 



Right shift constant amount 

Computes acl <- acl rshift n (n in range 1 to 7) 

Calling sequence is: 

Ida 1 value 

jsr 315 - 2*n 



Lql.7: 
Lql.6: 
Lql.5: 
Lql.4: 
Lql.3: 
Lql.2: 
Lql.l: 



L<-AC1 

AC1<-L 

L«-AC1 

AC1*-L 

L<-AC1 

AC1<-L 

L*-AC1 

AC1<-L 

L<-AC1 

AC1<-L 

L*-AC1 

AC1*-L 

L«-AC1, 

AC1<-L 



RSH 1 

RSH 1 

RSH 1 

RSH 1 

RSH 1 

RSH 1 
TASK 
RSH 1 



:Bran2;Do PC<-AC3 and go to START 
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; Left shift 

; Computes acO <- acO Ishift acl 

; called by jsr @346 

; Note that shift count may be either positive or negative 

!1,2, LshPos, LshNeg; 

!1,2, LshG16, LshL16; 

!1,2, LshG8, LshL8; 

!7,10, LshO, Lshl, Lsh2, Lsh3, Lsh4, Lsh5, Lsh6, Lsh7; 

!1,1, LshNl; 

Lsh: L<-T<-AC1; Shift count negative? 

L«-17-T, SH<0; 16 or greater? 

L<-10 AND T, ALUCY, :LshPos; [LshPos, LshNeg] 8 or greater? 
LshPos: L<-7 AND T, SH=0, :LshG16; [LshG16, LshL16] Compute count mod 8 
LshL16:T<-377, :LshG8; [LshG8, LshL8] 

; Shift count in range 8 to 15. Start by left-shifting 8 
LshG8: T<-AC0.T; 

SINK<-LREG, L«-T, BUS, TASK; Branch on shift count mod 8 

AC0<-L LCY 8, :LshO; 

; Shift count less than 8. Branch on shift count 
LshL8: SINK«-AC1, BUS, TASK; 
:LshO; 

Lsh7: L«-AG0; 

AC0«-L LSH 1; 
Lsh6: L«-AC0; 

AC0«-L LSH 1; 
Lsh5: L*-AC0; 

AC0<-L LSH 1; 
Lsh4: L<-AC0; 

AC0«-L LSH 1; 
Lsh3: L«-AC0; • 

AC0«-L LSH 1; 
Lsh2: L*-AC0; 

AC0«-L LSH 1; 
Lshl: L<-AC0, TASK; 

AC0<-L LSH 1, :Bran2;Do PC<-AC3 and go to START 

; Shift count 0, do nothing 
LshO: L<-AC0, TASK, :LtoAC0; 

; Shift count 16 or greater, return zero 

LshG16: L<-0, TASK, :LtoAC0; [LtoACO, LtoACO] 

-; Shift count negative. Convert to Right Shift 

LshNeg: L<-0-T, TASK; [LshNl, LshNl] Negate shift count 

LshNl: AC1«-L, :Rsh; 
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lor 

Computes acO «• acO % acl 

Called by jsr @340 

lor: T<-AC1; 

L«-AC0 OR T, TASK, :LtoAC0; 

Xor 

Computes acO «- acO xor acl 

Called by jsr @341 

Xor: T«-AC1; 

Xorl: L<-AC0 XOR T, TASK, :LtoAC0; 

Eqv 

Computes acO <- acO eqv acl 

Called by jsr @342 

Eqv: T«-AC1; 

L<-ALLONES XOR T; acO eqv acl = acO xor (not acl) 
T<-LREG, :Xorl; 

MulPlus 

Computes acO <- ac3 «- (acl*@ac3)+ac0 

Calling sequence is: 

Ida addend 

Ida 1 multiplicand 

jsr @357 
multiplier 

return here with result in acO and ac3 

1,2, MPNoAd, MPAdd; 
!1,2, MPLoop, MPDone; 

MulPlus: 

MAR«-AC3; Start fetch of multiplier 

L*-AC3+1; Compute return pc 

PC<-L; 

L«-MD, BUSODD, :MPLpl; Test low bit of multiplier 

; MulPlus loop. During each iteration, the multiplier is right-shifted 1 

; and the multiplicand is left-shifted 1. The loop terminates when the 

; multiplier becomes zero. This is good because in the standard use of 

; MulPlus the multiplier is typically a small integer. 

MPLoop: L<-AC3, BUSODD; Test low bit of multiplier 

MPLpl: AC3<-L RSH 1, :MPNoAd; [MPNoAd, MPAdd] Shift it out 

; Multiplier bit was 0, don't add but just shift multiplicand 

MPNoAd: L*-AC1, SH=0, TASK, :MPShft; Test for no more bits in multiplier 

; Multiplier bit was 1, add multiplicand to product 
MPAdd: T<-AC1; Multiplicand 

L<-AC0+T; Add to partial product 

AC0*-L, L«-T, TASK; L<- multiplicand 
MPShft: AC1<-L LSH 1, :MPLoop; [MPLoop, MPDone] Shift multiplicand left 
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; Here when done 

MPDone: L<-AC0, SWMODE; Copy result to ac3 

AC3<-L, :START; 
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Mult 

Computes (acO,acl) «- acO*acl 

Called by jsr @343 

!1,2, DoMul, NoMul; 
!1,2, MNoAdd, MAdd; 
!1,2, NoSpil, Spill; 
!1,2, MultLp, MultDn; 

Mult: L<-AC0-1, BUS=0; Get multiplicand-1, test for zero 

SAD«-L, L<-0, :DoMul; [DoMul, NoMul] Save it away 

DoMul: AC0*-L, TASK; Init partial product to 

IR<-ONE; Init loop count; done when it reaches 20 

; Multiply loop 

MultLp: L<-AC1, BUSODD; Test low bit of multiplier 

T<-AC0, :MNoAdd; [MNoAdd, MAdd] Get partial product 

; Multiplier bit was 1, add multiplicand to product 

MAdd: L«-T*-SAD+T+1; Add multiplicand to partial product 

L<-AC1, ALUCY; Low part of partial product 

; Multiplier bit was 0, just shift multiplicand and partial product 
-MNoAdd: AC1*-L MRSH 1, L<-T, T<-0, :NoSpiI; [NoSpil, Spill] 

Spill: T<-ONE; Carry into high partial product 

NoSpil: AC0<-L MRSH 1; 

L<-DISP+1, L«-X17+l, BUS=0, TASK; Check and update loop count 
1R*-LREG, :MultLp; [MultLp, MultDn] Branch if it was 20 

; Here when done 

MultDn: L<-AC3, SWMODE, :Start2; 

; Here when multiplicand is zero, just return zero 
NoMul:ACl*-L, :Bran2; 
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; DivRem 

; Computes acl <- acO/acl and acO «* acO rem acl (signed) 

; Called by jsr@344 or jsr@345 

1,2, DvsPos, DvsNeg; 
1,2, DndPos, DndNeg; 
1,2, NoSub, DoSub; 
1,2, DivLp, DivDn; 
1,2, RemPos, RemNeg; 
1,2, QuoPos, QuoNeg; 

DivRem: L«-T«-AC1; Fetch divisor 

SAD*-L, SH<0; Save it, test sign 

XREG<-L, L<-0-T, :DvsPos; [DvsPos, DvsNeg] Save original divisor 
DvsNeg: SAD<-L; Negative, negate divisor 

DvsPos: L<-T«- ACO; Fetch dividend 

PC<-L, L<-0-T, SH<0; Save it, test sign 

:DndPos; [DndPos, DndNeg] Init loop count 
DndNeg: T«-LREG; Negative, negate dividend 

DndPos: L«-20; Init loop count 

XH<-L, L*-0, :DivLpO; Init high dividend 

; Divide loop 

DivLp: L<-AC0; "Current high dividend 

T*-AC1; Current low dividend and quotient 

DivLp0:AC0<-L MLSH 1, L«-T;Shift another bit into high dividend 

AC1<-L LSH 1; Shift a zero into quotient 

T«-SAD; Divisor 

L<-AC0-T, T*-AC0; Try to subtract divisor from high dividend 

AC0*-L, ALUCY; Store dividend assuming subtract ok 

L<-XH-1, :NoSub; [NoSub, DoSub] Decrement and test loop count 

; Subtract ok, put a 1 in the quotient 

DoSub: XH<-L; Update loop count 

.L*-AC1+1, SH=0, TASK; Change quotient bit to 1 

AC1<-L, :DivLp; [DivLp, DivDn] Branch if done 

; Subtract not ok, restore old dividend and leave quotient bit 
NoSub: XH<-L, L<-T, SH=0, TASK; Update loop count 

AC0<-L, :DivLp; [DivLp, DivDn] Restore ACO, branch if done 

; Here when done. Fix up signs and exit 

DivDn: L«-PC; Get original dividend 

■T«-AC0, SH<0;. Test sign 

L«-0-T, T<-0, :RemPos; [RemPos, RemNeg] 
RemNeg: AC0<-L, T<-0-l; Was negative, negate remainder 

RemPos: L<-XREG XOR T; Get divisor sign, xor with dividend 

T<-AC1, SH<0; Test sign 

L<-0-T, TASK, :QuoPos; 
QuoNeg: AC1<-L, :Bran2; Negate quotient 

QuoPos: :Bran2; Set PC<-AC3 and go to START 
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SqO 

Left shifts data a constant amount, then stores in partial-word field 

in same manner as SnqO. 

Executes @acl «- (@acl & not @ac3) + ((acO Ishift n) & @ac3) 

Calling sequence is: 

Ida value (right-justified) 

Ida 1 address of word being stored into 

jsr 333 - 2*n (n is number of left shifts desired, in range 0-7) 
mask word (ones in field being stored into, zeroes elsewhere) 

returns here 



Sq0.7: 
Sq0.6: 
Sq0.5: 
Sq0.4: 
Sq0.3: 
Sq0.2: 
SqO.l: 



L<-AC0; 
AC0*-L 
L<-AC0; 
AC0<-L 
L*-AC0; 
AC0<-L 
L<-AC0; 
AC0«-L 
L<-AC0; 
AC0«-L 
L«-AC0; 
AC0«-L 
L<-AC0, 
AC0<-L 



LSH 1 

LSH 1 

LSH 1 

LSH 1 

LSH 1 

LSH 1; 
TASK; 
LSH 1, :SnqO; 



SnqO 

Stores partial-word field into a structure. 

Executes @acl <- (@acl & not @ac3) + (acO & @ac3) 

Calling sequence is: 

Ida value (must be bit-aligned with field being stored into) 

Ida 1 address of word being stored into 

jsr @360 
mask word (ones in-field being stored into, zeroes elsewhere) 

returns here 



SnqO: MAR«-AC3; 

L*-AC1; 
SnqOa: T<-MD; 

MAR<-LREG; 

AC1<-L; 

L<-MD AND NOT T; 

MAR*-AC1; 

T<-AC0.T; 

L*-LREG+T, TASK; 

MD<-LREG; 

L<-AC3+1, SVYMODE, 



Fetch mask 

Address of word being stored into 

Fetch word being stored into 

Save address (in case came from Snql) 

Zero bits to be changed 
Start to store back updated word 
Mask out extraneous bits in new value 

Merge new bits into old word 
Store back in memory 
:Start2; PC«-AC3+1 and go to START 
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Sql 

Left shifts data a constant amount, then stores in partial-word field 

in same manner as Snql. 

Executes @acO «- (@acO & not @ac3) + ((acl lshift n) & @ac3) 

Calling sequence is: 

Ida 1 value (right-justified) 

Ida address of word being stored into 

jsr 334 - 2*n (n is number of left shifts desired, in range 0-7) 
mask word (ones in field being stored into, zeroes elsewhere) 

returns here 



Sql.7 
Sql.6 
Sql.5 
SqJ.4 
Sql. 3 
Sql.2 
Sql.l 



L<-AC1; 
AC1«-L LSH 1 
L<-AC1; 
AC1<-L LSH 1 
L<-AC1; 
AC1<-L LSH 1 
.L*AC1; 
AC1*-L LSH 1 
L«-AC1; 
AC1<-L LSH 1 
L<-AC1; 
AC1<-L LSH 1 
L«-AC1, TASK; 
AC1*-L LSH 1, :Snql; 



Snql 

Stores partial-word field into a structure. 

Executes @ac0 <- (@ac0 & not @ac3) + acl & @ac3 

Galling sequence is: 

Ida 1 value (must be bit-aligned with field being stored into) 

Ida address of word being stored into 

jsr @360 
mask word (ones in field being stored into, zeroes elsewhere) 

returns here 



Snql: MAR«-AC3; 
L«-AC1; 
T«-AC0; 
AC0«-L, L<-T, :Snq0a; 



Fetch mask 

Get value 

Get address 

Swap them and join common code 
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Load byte from array 

Loads the acl'th byte from the array pointed to by acO 

and returns it right-justified in acO. 

Called by jsr @362 

Note: acl may be negative. 

!1,2, LyOlP, LyOlN; 
!1,2, LyOlL, LyOIR; 

LyOl: L<-AC1; Get index 

T<-AC0, SH<0; Get address, test for negative index 

MTEMP<-L RSH 1, :Ly01P; [LyOlP, LyOlN] Divide index by 2 

LyOlN: T<-77777+T+l; Negative index, extend sign of index/2 

LyOlP: MAR<-MTEMP+T; Positive index, start fetch 

SINK<-AC1, BUSODD; Which byte? 

T«-377, :Ly01L; [LyOlL, LyOIR] 

LyOlL: L<-MD AND NOT T, TASK; Left byte, mask and swap to right 
AC0*-L LCY 8, :Bran2; 

LyOIR: L«-MD AND T, TASK, :LtoAC0; Right byte, mask and store 



Load byte from array 

Loads the acO'th byte from the array pointed to by acl 

and returns it right-justified in acl. 

Galled by jsr @363 

Note: acO may be negative. 

!1,2, LylOP, LylON; 
!1,2, LylOL, LylOR; 

LylO: L<-AC0; Get index 

T<-AC1, SH<0; Get address, test for negative index 

MTEMP«-L RSH 1, :LylOP; [LylOP, LylON] Divide index by 2 

LylON: T<-77777+T+l; Negative index, extend sign of index/2 

LylOP: MAR<-MTEMP+T; Positive index, start fetch 

SINK<-ACO, BUSODD; Which byte? 

T<-377, :LylOL; [LylOL, LylOR] 

LylOL: L<-MD AND NOT T, TASK; Left byte, mask and swap to right 
AC1«-L LCY 8, :Bran2; 

LylOR: L<-MD AND T, TASK; Right byte, mask and store 
AC1*-L, :Bran2; 
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Store byte into array 

Stores the byte now contained in frame temp 3 (ac2!3) into 

the acl'th byte of the array pointed to by acO. 

Called by jsr@364 

Note: acl may be negative. 

!1,2, SyOlP, SyOlN; 
!1,2, SyOlL, SyOIR; 

SyOl: L<-AC1; Get index 

T*-3, SH<0; Frame offset, test for negative index 

MAR<-AC2+T, :Sy01P; [SyOlP, SyOlN] Start fetch of byte to store 

SyOlN: MTEMP<-L MRSH 1, :Sy01A; Negative index, divide by 2 and extend sign 
SyOlP: MTEMP*-L RSH 1; Positive index, just divide by 2 

SyOlA: T«-MTEMP; Get word index 

L<-AC0+T; Compute address of word 

T«-MD; Here comes the byte to store 

MTEMP«-L; Save word address 

MAR<-MTEMP; Fetch word being stored into 

SINK«-AC1, BUSODD; Which byte? 
SyOlC: L<-377 AND T, T*-377, :Sy01L; [SyOlL, SyOIR] Isolate byte being stored 

SyOlL: AC1«-L LCY 8; Storing into left byte, swap halves. 

L<-MD AND T, :Sy01B; Zero left byte of word being stored into 

SyOIR: AC1«-L; Storing into right byte, already set up 

L<-MD AND NOT T; Zero right byte of word being stored into 

SyOlB: MAR<-MTEMP; Start store 

T<-LREG; Existing contents to preserve 

L<-AC1 OR T, TASK; Merge old and new bytes 

MD<-LREG, :Bran2; Finish store, then PC«-AC3 and go to START 

Store byte into array 

Stores the byte now contained in frame temp 3 (ac2?3) into 

the acO'th byte of the array pointed to by acl. 

Called by jsr@365 

Note: acO may be negative. 

!1,2, SylOP, SylON; 

SylO: L<-AC0; Get index 

T<-3, SH<0; Frame offset, test for negative index 

MAR<-AC2+T, :SylOP; [SylOP, SylON] Start fetch of byte to store 

SylON: MTEMP<-L MRSH 1, :SylOA; Negative index, divide by 2 and extend sign 
SylOP: MTEMP<-L RSH 1; Positive index, just divide by 2 

SylOA: T<-MTEMP; Get word index 

L<-AC1+T; Compute address of word 

T<-MD; Here comes the byte to store 

MTEMP«-L; Save word address 

MAR*-MTEMP; Fetch word being stored into 

S1NIOAC0, BUSODD, :Sy01C; Which byte? Join common code 



